Using synapsis
packages = c("rmarkdown","BiocManager","imager")
package.check <- lapply(
packages,
FUN = function(x) {
if (!require(x, character.only = TRUE)) {
install.packages(x, dependencies = TRUE)
library(x, character.only = TRUE)
}
}
)
## Loading required package: rmarkdown
## Loading required package: BiocManager
## Loading required package: imager
## Loading required package: magrittr
##
## Attaching package: 'imager'
## The following object is masked from 'package:magrittr':
##
## add
## The following objects are masked from 'package:stats':
##
## convolve, spectrum
## The following object is masked from 'package:graphics':
##
## frame
## The following object is masked from 'package:base':
##
## save.image
library(knitr)
library(rmarkdown)
#BiocManager::install("EBImage")
library(EBImage)
##
## Attaching package: 'EBImage'
## The following objects are masked from 'package:imager':
##
## channel, dilate, display, erode, resize, watershed
library(ggplot2)
## comment out if you have crops..
#path = "~/Documents/svi/imaging/data-folder/test-folder/all-KO/github-example"
#files <- list.files(path)
#setwd("~/Documents/synapsis/synapsis/R")
#source("auto_crop.R")
# call routine to crop images, and display their "cell number"
#crop(files, path, "regular")
#### make sure that these are output in a new folder.
### call the next functions on the new folder.
# call get_pachytene()
#path = "~/Documents/svi/imaging/data-folder/test-folder/all-KO/github-example/crops"
#source("~/Documents/synapsis/synapsis/R/get_pachytene.R")
#files <- list.files(path)
#get_pachytene(files,path)
### only keep BW filter
# call count_foci() on the pachytene files only.
#path = "~/Documents/svi/imaging/data-folder/test-folder/all-KO/github-example/crops/pachytene"
#source("~/Documents/synapsis/synapsis/R/count_foci.R")
#files <- list.files(path)
#foci_counts <- count_foci(files,path)
#column_2 <- as.data.frame(foci_counts)
#write.csv(column_2, "temp.csv",row.names = FALSE)
# Call for KO folder, call for WT folder.
# call same routine, but excluding those which are cropped badly.
### now that you have all the pachytene crop files, measure the distances.
path = "~/Documents/svi/imaging/data-folder/test-folder/all-KO/crops/pachytene"
source("~/Documents/synapsis/synapsis/R/measure_distances_2.R")
files <- list.files(path)
measure_distances_2(files,path)
## [1] 1
## [1] "we have a strand with two foci"
## [1] 78.61111 45.88889 54.50000 51.00000
## [1] "total distance is"
## [1] 26.14214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.385802
## [1] " foci 1 x mean is"
## [1] 78.61111
## [1] "mean x f1 is"
## [1] 47
## [1] " foci 1 y mean is"
## [1] 45.88889
## [1] "mean y f1 is"
## [1] 79
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## NULL
## [1] "we have a strand with two foci"
## [1] 43.83333 55.00000 39.50000 65.50000
## [1] "total distance is"
## [1] 17.24264
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.02777778
## [1] " foci 1 x mean is"
## [1] 43.83333
## [1] "mean x f1 is"
## [1] 55
## [1] " foci 1 y mean is"
## [1] 55
## [1] "mean y f1 is"
## [1] 44
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## NULL
## [1] "we have a strand with two foci"
## [1] 122.0 51.5 117.0 53.5
## [1] "total distance is"
## [1] 30.79899
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 122
## [1] "mean x f1 is"
## [1] 51
## [1] " foci 1 y mean is"
## [1] 51.5
## [1] "mean y f1 is"
## [1] 122
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## NULL
## [1] "we have a strand with two foci"
## [1] 100.00000 90.71429 87.80000 91.60000
## [1] "total distance is"
## [1] 26.14214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.081633
## [1] " foci 1 x mean is"
## [1] 100
## [1] "mean x f1 is"
## [1] 91
## [1] " foci 1 y mean is"
## [1] 90.71429
## [1] "mean y f1 is"
## [1] 101
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## NULL
## [1] "we have a strand with two foci"
## [1] 57.125 117.875 76.800 128.400
## [1] "total distance is"
## [1] 22.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.03125
## [1] " foci 1 x mean is"
## [1] 57.125
## [1] "mean x f1 is"
## [1] 118
## [1] " foci 1 y mean is"
## [1] 117.875
## [1] "mean y f1 is"
## [1] 57
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## NULL
## [1] 2
## [1] "we have a strand with two foci"
## [1] 124.75 47.25 124.25 57.25
## [1] "total distance is"
## [1] 12.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 6.125
## [1] " foci 1 x mean is"
## [1] 124.75
## [1] "mean x f1 is"
## [1] 49
## [1] " foci 1 y mean is"
## [1] 47.25
## [1] "mean y f1 is"
## [1] 123
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## NULL
## [1] "we have a strand with two foci"
## [1] 46.00000 83.50000 50.33333 87.33333
## [1] "total distance is"
## [1] 6.242641
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 16.25
## [1] " foci 1 x mean is"
## [1] 46
## [1] "mean x f1 is"
## [1] 83
## [1] " foci 1 y mean is"
## [1] 83.5
## [1] "mean y f1 is"
## [1] 50
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## NULL
## [1] 3
## [1] "we have a strand with two foci"
## [1] 35 33 22 38
## [1] "total distance is"
## [1] 10.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 2
## [1] " foci 1 x mean is"
## [1] 35
## [1] "mean x f1 is"
## [1] 34
## [1] " foci 1 y mean is"
## [1] 33
## [1] "mean y f1 is"
## [1] 36
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## NULL
## [1] 4
## [1] "we have a strand with two foci"
## [1] 64 105 63 106
## [1] "total distance is"
## [1] 8.656854
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 2
## [1] " foci 1 x mean is"
## [1] 64
## [1] "mean x f1 is"
## [1] 106
## [1] " foci 1 y mean is"
## [1] 105
## [1] "mean y f1 is"
## [1] 65
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634
## [1] 5
## [1] "we have a strand with two foci"
## [1] 71.23529 62.35294 73.50000 83.00000
## [1] "total distance is"
## [1] 21.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1799308
## [1] " foci 1 x mean is"
## [1] 71.23529
## [1] "mean x f1 is"
## [1] 62
## [1] " foci 1 y mean is"
## [1] 62.35294
## [1] "mean y f1 is"
## [1] 71
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634
## [1] "we have a strand with two foci"
## [1] 101.54545 68.36364 88.87500 94.87500
## [1] "total distance is"
## [1] 25.72792
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.338843
## [1] " foci 1 x mean is"
## [1] 101.5455
## [1] "mean x f1 is"
## [1] 68
## [1] " foci 1 y mean is"
## [1] 68.36364
## [1] "mean y f1 is"
## [1] 102
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634
## [1] "we have a strand with two foci"
## [1] 48.5 73.5 31.5 75.5
## [1] "total distance is"
## [1] 14.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5
## [1] " foci 1 x mean is"
## [1] 48.5
## [1] "mean x f1 is"
## [1] 74
## [1] " foci 1 y mean is"
## [1] 73.5
## [1] "mean y f1 is"
## [1] 48
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634
## [1] "we have a strand with two foci"
## [1] 77.00000 110.50000 92.16667 111.83333
## [1] "total distance is"
## [1] 18.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 77
## [1] "mean x f1 is"
## [1] 111
## [1] " foci 1 y mean is"
## [1] 110.5
## [1] "mean y f1 is"
## [1] 77
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202
## [1] 6
## [1] "we have a strand with two foci"
## [1] 32.5 30.0 19.0 35.0
## [1] "total distance is"
## [1] 12.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 32.5
## [1] "mean x f1 is"
## [1] 30
## [1] " foci 1 y mean is"
## [1] 30
## [1] "mean y f1 is"
## [1] 33
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202
## [1] "we have a strand with two foci"
## [1] 54 35 60 59
## [1] "total distance is"
## [1] 3.414214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 3965
## [1] " foci 1 x mean is"
## [1] 54
## [1] "mean x f1 is"
## [1] 1
## [1] " foci 1 y mean is"
## [1] 35
## [1] "mean y f1 is"
## [1] 1
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202
## [1] 7
## [1] "we have a strand with two foci"
## [1] 45.87500 71.50000 38.90909 72.36364
## [1] "total distance is"
## [1] 22.48528
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.265625
## [1] " foci 1 x mean is"
## [1] 45.875
## [1] "mean x f1 is"
## [1] 71
## [1] " foci 1 y mean is"
## [1] 71.5
## [1] "mean y f1 is"
## [1] 46
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363
## [1] "we have a strand with two foci"
## [1] 64 107 63 108
## [1] "total distance is"
## [1] 8.656854
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 2
## [1] " foci 1 x mean is"
## [1] 64
## [1] "mean x f1 is"
## [1] 108
## [1] " foci 1 y mean is"
## [1] 107
## [1] "mean y f1 is"
## [1] 65
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363
## [1] 8
## [1] "we have a strand with two foci"
## [1] 74.17647 64.94118 76.00000 85.00000
## [1] "total distance is"
## [1] 28.72792
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.387543
## [1] " foci 1 x mean is"
## [1] 74.17647
## [1] "mean x f1 is"
## [1] 65
## [1] " foci 1 y mean is"
## [1] 64.94118
## [1] "mean y f1 is"
## [1] 73
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363
## [1] "we have a strand with two foci"
## [1] 50.875 75.875 32.500 78.500
## [1] "total distance is"
## [1] 14.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.03125
## [1] " foci 1 x mean is"
## [1] 50.875
## [1] "mean x f1 is"
## [1] 76
## [1] " foci 1 y mean is"
## [1] 75.875
## [1] "mean y f1 is"
## [1] 51
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363
## [1] "we have a strand with two foci"
## [1] 79.00000 113.00000 94.83333 114.16667
## [1] "total distance is"
## [1] 19.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0
## [1] " foci 1 x mean is"
## [1] 79
## [1] "mean x f1 is"
## [1] 113
## [1] " foci 1 y mean is"
## [1] 113
## [1] "mean y f1 is"
## [1] 79
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602
## [1] 9
## [1] "we have a strand with two foci"
## [1] 78.75000 33.25000 70.83333 40.83333
## [1] "total distance is"
## [1] 32.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 7085.125
## [1] " foci 1 x mean is"
## [1] 78.75
## [1] "mean x f1 is"
## [1] 1
## [1] " foci 1 y mean is"
## [1] 33.25
## [1] "mean y f1 is"
## [1] 1
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602
## [1] "we have a strand with two foci"
## [1] 37.5 65.5 32.2 65.8
## [1] "total distance is"
## [1] 22.48528
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5
## [1] " foci 1 x mean is"
## [1] 37.5
## [1] "mean x f1 is"
## [1] 65
## [1] " foci 1 y mean is"
## [1] 65.5
## [1] "mean y f1 is"
## [1] 37
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892
## [1] 10
## [1] "we have a strand with two foci"
## [1] 96.28571 44.00000 84.00000 55.00000
## [1] "total distance is"
## [1] 22.14214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.08163265
## [1] " foci 1 x mean is"
## [1] 96.28571
## [1] "mean x f1 is"
## [1] 44
## [1] " foci 1 y mean is"
## [1] 44
## [1] "mean y f1 is"
## [1] 96
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892
## [1] "we have a strand with two foci"
## [1] 68.94444 58.77778 70.80000 79.40000
## [1] "total distance is"
## [1] 17.41421
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.05246914
## [1] " foci 1 x mean is"
## [1] 68.94444
## [1] "mean x f1 is"
## [1] 59
## [1] " foci 1 y mean is"
## [1] 58.77778
## [1] "mean y f1 is"
## [1] 69
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892
## [1] "we have a strand with two foci"
## [1] 45.8125 70.1875 28.8000 72.4000
## [1] "total distance is"
## [1] 11.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.0703125
## [1] " foci 1 x mean is"
## [1] 45.8125
## [1] "mean x f1 is"
## [1] 70
## [1] " foci 1 y mean is"
## [1] 70.1875
## [1] "mean y f1 is"
## [1] 46
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892
## [1] "we have a strand with two foci"
## [1] 74.00000 107.00000 89.57143 108.14286
## [1] "total distance is"
## [1] 18.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0
## [1] " foci 1 x mean is"
## [1] 74
## [1] "mean x f1 is"
## [1] 107
## [1] " foci 1 y mean is"
## [1] 107
## [1] "mean y f1 is"
## [1] 74
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892
## [1] 11
## [1] "we have a strand with two foci"
## [1] 72.30769 49.84615 83.63636 52.09091
## [1] "total distance is"
## [1] 22.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1183432
## [1] " foci 1 x mean is"
## [1] 72.30769
## [1] "mean x f1 is"
## [1] 50
## [1] " foci 1 y mean is"
## [1] 49.84615
## [1] "mean y f1 is"
## [1] 72
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174
## [1] "we have a strand with two foci"
## [1] 38.92308 61.15385 37.00000 70.00000
## [1] "total distance is"
## [1] 13.24264
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.0295858
## [1] " foci 1 x mean is"
## [1] 38.92308
## [1] "mean x f1 is"
## [1] 61
## [1] " foci 1 y mean is"
## [1] 61.15385
## [1] "mean y f1 is"
## [1] 39
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [1] "we have a strand with two foci"
## [1] 19.125 55.125 10.875 69.875
## [1] "total distance is"
## [1] 13.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.03125
## [1] " foci 1 x mean is"
## [1] 19.125
## [1] "mean x f1 is"
## [1] 55
## [1] " foci 1 y mean is"
## [1] 55.125
## [1] "mean y f1 is"
## [1] 19
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [1] "we have a strand with two foci"
## [1] 48.33333 75.33333 51.92308 81.69231
## [1] "total distance is"
## [1] 22.55635
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2222222
## [1] " foci 1 x mean is"
## [1] 48.33333
## [1] "mean x f1 is"
## [1] 75
## [1] " foci 1 y mean is"
## [1] 75.33333
## [1] "mean y f1 is"
## [1] 48
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879
## [1] "we have a strand with two foci"
## [1] 60.00000 101.50000 56.11111 112.55556
## [1] "total distance is"
## [1] 10.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 60
## [1] "mean x f1 is"
## [1] 101
## [1] " foci 1 y mean is"
## [1] 101.5
## [1] "mean y f1 is"
## [1] 60
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879
## [1] 12
## [1] "we have a strand with two foci"
## [1] 10.166667 40.833333 7.714286 59.142857
## [1] "total distance is"
## [1] 25.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.05555556
## [1] " foci 1 x mean is"
## [1] 10.16667
## [1] "mean x f1 is"
## [1] 41
## [1] " foci 1 y mean is"
## [1] 40.83333
## [1] "mean y f1 is"
## [1] 10
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238
## [1] "we have a strand with two foci"
## [1] 23.28571 50.50000 23.00000 66.00000
## [1] "total distance is"
## [1] 13.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.7602041
## [1] " foci 1 x mean is"
## [1] 23.28571
## [1] "mean x f1 is"
## [1] 50
## [1] " foci 1 y mean is"
## [1] 50.5
## [1] "mean y f1 is"
## [1] 24
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238
## [1] "we have a strand with two foci"
## [1] 64.66667 63.66667 74.87500 67.12500
## [1] "total distance is"
## [1] 25.72792
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5555556
## [1] " foci 1 x mean is"
## [1] 64.66667
## [1] "mean x f1 is"
## [1] 63
## [1] " foci 1 y mean is"
## [1] 63.66667
## [1] "mean y f1 is"
## [1] 65
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818
## [1] 13
## [1] "we have a strand with two foci"
## [1] 82.50000 42.00000 86.16667 44.16667
## [1] "total distance is"
## [1] 19.48528
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 82.5
## [1] "mean x f1 is"
## [1] 42
## [1] " foci 1 y mean is"
## [1] 42
## [1] "mean y f1 is"
## [1] 82
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565
## [1] "we have a strand with two foci"
## [1] 61.96774 62.38710 48.20000 66.10000
## [1] "total distance is"
## [1] 32.97056
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1508845
## [1] " foci 1 x mean is"
## [1] 61.96774
## [1] "mean x f1 is"
## [1] 62
## [1] " foci 1 y mean is"
## [1] 62.3871
## [1] "mean y f1 is"
## [1] 62
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000
## [1] "we have a strand with two foci"
## [1] 71.50000 116.50000 61.66667 124.66667
## [1] "total distance is"
## [1] 12.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5
## [1] " foci 1 x mean is"
## [1] 71.5
## [1] "mean x f1 is"
## [1] 116
## [1] " foci 1 y mean is"
## [1] 116.5
## [1] "mean y f1 is"
## [1] 71
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000
## [1] 14
## [1] "we have a strand with two foci"
## [1] 74.50000 37.50000 86.50000 46.28571
## [1] "total distance is"
## [1] 9.071068
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5
## [1] " foci 1 x mean is"
## [1] 74.5
## [1] "mean x f1 is"
## [1] 37
## [1] " foci 1 y mean is"
## [1] 37.5
## [1] "mean y f1 is"
## [1] 74
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000
## [1] "we have a strand with two foci"
## [1] 45.94118 47.41176 59.87500 49.37500
## [1] "total distance is"
## [1] 16.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1730104
## [1] " foci 1 x mean is"
## [1] 45.94118
## [1] "mean x f1 is"
## [1] 47
## [1] " foci 1 y mean is"
## [1] 47.41176
## [1] "mean y f1 is"
## [1] 46
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000
## [1] "we have a strand with two foci"
## [1] 108.125 70.500 111.250 78.750
## [1] "total distance is"
## [1] 15.82843
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.265625
## [1] " foci 1 x mean is"
## [1] 108.125
## [1] "mean x f1 is"
## [1] 70
## [1] " foci 1 y mean is"
## [1] 70.5
## [1] "mean y f1 is"
## [1] 108
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041
## [1] "we have a strand with two foci"
## [1] 92.22222 53.55556 97.50000 55.25000
## [1] "total distance is"
## [1] 22.14214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2469136
## [1] " foci 1 x mean is"
## [1] 92.22222
## [1] "mean x f1 is"
## [1] 54
## [1] " foci 1 y mean is"
## [1] 53.55556
## [1] "mean y f1 is"
## [1] 92
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [1] "we have a strand with two foci"
## [1] 105.00000 92.50000 109.28571 98.64286
## [1] "total distance is"
## [1] 23.14214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 3.25
## [1] " foci 1 x mean is"
## [1] 105
## [1] "mean x f1 is"
## [1] 94
## [1] " foci 1 y mean is"
## [1] 92.5
## [1] "mean y f1 is"
## [1] 104
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620
## [1] "we have a strand with two foci"
## [1] 72.40000 101.20000 64.68182 110.63636
## [1] "total distance is"
## [1] 8.414214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.4
## [1] " foci 1 x mean is"
## [1] 72.4
## [1] "mean x f1 is"
## [1] 101
## [1] " foci 1 y mean is"
## [1] 101.2
## [1] "mean y f1 is"
## [1] 73
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620
## [1] "we have a strand with two foci"
## [1] 122.0000 109.0000 125.3125 113.9375
## [1] "total distance is"
## [1] 8.414214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1
## [1] " foci 1 x mean is"
## [1] 122
## [1] "mean x f1 is"
## [1] 109
## [1] " foci 1 y mean is"
## [1] 109
## [1] "mean y f1 is"
## [1] 123
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883
## [1] "we have a strand with two foci"
## [1] 88.7500 118.9167 102.2308 123.9231
## [1] "total distance is"
## [1] 25.97056
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.06944444
## [1] " foci 1 x mean is"
## [1] 88.75
## [1] "mean x f1 is"
## [1] 119
## [1] " foci 1 y mean is"
## [1] 118.9167
## [1] "mean y f1 is"
## [1] 89
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301
## [1] "we have a strand with two foci"
## [1] 68.5 118.5 73.0 121.0
## [1] "total distance is"
## [1] 25.38478
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5
## [1] " foci 1 x mean is"
## [1] 68.5
## [1] "mean x f1 is"
## [1] 118
## [1] " foci 1 y mean is"
## [1] 118.5
## [1] "mean y f1 is"
## [1] 68
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032
## [1] 15
## [1] "we have a strand with two foci"
## [1] 137.28571 66.00000 133.75000 73.66667
## [1] "total distance is"
## [1] 24.55635
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5102041
## [1] " foci 1 x mean is"
## [1] 137.2857
## [1] "mean x f1 is"
## [1] 66
## [1] " foci 1 y mean is"
## [1] 66
## [1] "mean y f1 is"
## [1] 138
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032
## [1] "we have a strand with two foci"
## [1] 50.00000 65.71429 42.87500 67.87500
## [1] "total distance is"
## [1] 26.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.08163265
## [1] " foci 1 x mean is"
## [1] 50
## [1] "mean x f1 is"
## [1] 66
## [1] " foci 1 y mean is"
## [1] 65.71429
## [1] "mean y f1 is"
## [1] 50
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251
## [1] "we have a strand with two foci"
## [1] 95.4 66.8 105.0 68.0
## [1] "total distance is"
## [1] 21.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.4
## [1] " foci 1 x mean is"
## [1] 95.4
## [1] "mean x f1 is"
## [1] 67
## [1] " foci 1 y mean is"
## [1] 66.8
## [1] "mean y f1 is"
## [1] 96
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839
## [1] "we have a strand with two foci"
## [1] 42.125 83.125 21.000 91.500
## [1] "total distance is"
## [1] 20.24264
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.03125
## [1] " foci 1 x mean is"
## [1] 42.125
## [1] "mean x f1 is"
## [1] 83
## [1] " foci 1 y mean is"
## [1] 83.125
## [1] "mean y f1 is"
## [1] 42
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839
## [1] "we have a strand with two foci"
## [1] 45.85714 98.14286 41.12500 106.00000
## [1] "total distance is"
## [1] 9.656854
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.04081633
## [1] " foci 1 x mean is"
## [1] 45.85714
## [1] "mean x f1 is"
## [1] 98
## [1] " foci 1 y mean is"
## [1] 98.14286
## [1] "mean y f1 is"
## [1] 46
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839
## [1] "we have a strand with two foci"
## [1] 67.5 123.0 74.5 129.0
## [1] "total distance is"
## [1] 17.48528
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 67.5
## [1] "mean x f1 is"
## [1] 123
## [1] " foci 1 y mean is"
## [1] 123
## [1] "mean y f1 is"
## [1] 68
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839
## [1] 16
## [1] "we have a strand with two foci"
## [1] 73.500 7.000 74.750 17.625
## [1] "total distance is"
## [1] 10.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 5292.25
## [1] " foci 1 x mean is"
## [1] 73.5
## [1] "mean x f1 is"
## [1] 1
## [1] " foci 1 y mean is"
## [1] 7
## [1] "mean y f1 is"
## [1] 1
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839
## [1] "we have a strand with two foci"
## [1] 45.0 26.0 35.0 31.5
## [1] "total distance is"
## [1] 5.414214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 5
## [1] " foci 1 x mean is"
## [1] 45
## [1] "mean x f1 is"
## [1] 25
## [1] " foci 1 y mean is"
## [1] 26
## [1] "mean y f1 is"
## [1] 43
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839
## [1] "we have a strand with two foci"
## [1] 96.16667 76.83333 79.70000 78.00000
## [1] "total distance is"
## [1] 28.55635
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.05555556
## [1] " foci 1 x mean is"
## [1] 96.16667
## [1] "mean x f1 is"
## [1] 77
## [1] " foci 1 y mean is"
## [1] 76.83333
## [1] "mean y f1 is"
## [1] 96
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## List of 2
## $ message: chr "subscript out of bounds"
## $ call : language slot(noise_gone, ".Data")[ix_c, iy_c, drop = FALSE]
## - attr(*, "class")= chr [1:3] "simpleError" "error" "condition"
## [1] 17
## [1] "we have a strand with two foci"
## [1] 99.50000 63.00000 78.58333 67.91667
## [1] "total distance is"
## [1] 26.14214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.25
## [1] " foci 1 x mean is"
## [1] 99.5
## [1] "mean x f1 is"
## [1] 62
## [1] " foci 1 y mean is"
## [1] 63
## [1] "mean y f1 is"
## [1] 99
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689
## [1] 18
## [1] "we have a strand with two foci"
## [1] 53.500 40.500 53.750 53.375
## [1] "total distance is"
## [1] 22.48528
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5
## [1] " foci 1 x mean is"
## [1] 53.5
## [1] "mean x f1 is"
## [1] 40
## [1] " foci 1 y mean is"
## [1] 40.5
## [1] "mean y f1 is"
## [1] 53
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775
## [1] "we have a strand with two foci"
## [1] 84.33333 59.44444 75.50000 76.50000
## [1] "total distance is"
## [1] 18.41421
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.308642
## [1] " foci 1 x mean is"
## [1] 84.33333
## [1] "mean x f1 is"
## [1] 59
## [1] " foci 1 y mean is"
## [1] 59.44444
## [1] "mean y f1 is"
## [1] 84
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775
## List of 2
## $ message: chr "subscript out of bounds"
## $ call : language slot(noise_gone, ".Data")[ix1, iy1, drop = FALSE]
## - attr(*, "class")= chr [1:3] "simpleError" "error" "condition"
## [1] 19
## [1] "we have a strand with two foci"
## [1] 120.45455 41.63636 123.09091 53.63636
## [1] "total distance is"
## [1] 24.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.4297521
## [1] " foci 1 x mean is"
## [1] 120.4545
## [1] "mean x f1 is"
## [1] 42
## [1] " foci 1 y mean is"
## [1] 41.63636
## [1] "mean y f1 is"
## [1] 121
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864
## [1] "we have a strand with two foci"
## [1] 104.6667 61.5000 124.2000 72.3000
## [1] "total distance is"
## [1] 29.79899
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 2.027778
## [1] " foci 1 x mean is"
## [1] 104.6667
## [1] "mean x f1 is"
## [1] 61
## [1] " foci 1 y mean is"
## [1] 61.5
## [1] "mean y f1 is"
## [1] 106
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083
## [1] 20
## [1] "we have a strand with two foci"
## [1] 95.09091 98.36364 102.45455 112.18182
## [1] "total distance is"
## [1] 8.414214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 18332.78
## [1] " foci 1 x mean is"
## [1] 95.09091
## [1] "mean x f1 is"
## [1] 1
## [1] " foci 1 y mean is"
## [1] 98.36364
## [1] "mean y f1 is"
## [1] 1
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083
## [1] 21
## [1] "we have a strand with two foci"
## [1] 26.5 73.5 21.2 82.5
## [1] "total distance is"
## [1] 7.656854
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 2.5
## [1] " foci 1 x mean is"
## [1] 26.5
## [1] "mean x f1 is"
## [1] 73
## [1] " foci 1 y mean is"
## [1] 73.5
## [1] "mean y f1 is"
## [1] 25
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083
## [1] "we have a strand with two foci"
## [1] 40.50000 73.00000 66.81818 82.54545
## [1] "total distance is"
## [1] 30.14214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 40.5
## [1] "mean x f1 is"
## [1] 73
## [1] " foci 1 y mean is"
## [1] 73
## [1] "mean y f1 is"
## [1] 41
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083
## [1] "we have a strand with two foci"
## [1] 124.36364 79.63636 120.80000 88.80000
## [1] "total distance is"
## [1] 7.242641
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5371901
## [1] " foci 1 x mean is"
## [1] 124.3636
## [1] "mean x f1 is"
## [1] 79
## [1] " foci 1 y mean is"
## [1] 79.63636
## [1] "mean y f1 is"
## [1] 124
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083
## [1] "we have a strand with two foci"
## [1] 35 93 43 109
## [1] "total distance is"
## [1] 12.41421
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0
## [1] " foci 1 x mean is"
## [1] 35
## [1] "mean x f1 is"
## [1] 93
## [1] " foci 1 y mean is"
## [1] 93
## [1] "mean y f1 is"
## [1] 35
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083
## [1] "we have a strand with two foci"
## [1] 77.33333 100.33333 81.50000 107.00000
## [1] "total distance is"
## [1] 25.55635
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2222222
## [1] " foci 1 x mean is"
## [1] 77.33333
## [1] "mean x f1 is"
## [1] 100
## [1] " foci 1 y mean is"
## [1] 100.3333
## [1] "mean y f1 is"
## [1] 77
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438
## [1] 22
## [1] "we have a strand with two foci"
## [1] 115.50000 23.50000 119.18182 36.36364
## [1] "total distance is"
## [1] 25.97056
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 2.5
## [1] " foci 1 x mean is"
## [1] 115.5
## [1] "mean x f1 is"
## [1] 25
## [1] " foci 1 y mean is"
## [1] 23.5
## [1] "mean y f1 is"
## [1] 115
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211
## [1] "we have a strand with two foci"
## [1] 109.4 42.6 117.5 61.0
## [1] "total distance is"
## [1] 23.48528
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.32
## [1] " foci 1 x mean is"
## [1] 109.4
## [1] "mean x f1 is"
## [1] 43
## [1] " foci 1 y mean is"
## [1] 42.6
## [1] "mean y f1 is"
## [1] 109
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [1] "we have a strand with two foci"
## [1] 125.33333 54.66667 126.50000 73.00000
## [1] "total distance is"
## [1] 24.72792
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.888889
## [1] " foci 1 x mean is"
## [1] 125.3333
## [1] "mean x f1 is"
## [1] 55
## [1] " foci 1 y mean is"
## [1] 54.66667
## [1] "mean y f1 is"
## [1] 124
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763
## [1] "we have a strand with two foci"
## [1] 40.600 69.800 29.875 90.875
## [1] "total distance is"
## [1] 29.2132
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.4
## [1] " foci 1 x mean is"
## [1] 40.6
## [1] "mean x f1 is"
## [1] 70
## [1] " foci 1 y mean is"
## [1] 69.8
## [1] "mean y f1 is"
## [1] 40
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109
## [1] 23
## [1] "we have a strand with two foci"
## [1] 71.00000 33.07143 72.00000 40.50000
## [1] "total distance is"
## [1] 21.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.8622449
## [1] " foci 1 x mean is"
## [1] 71
## [1] "mean x f1 is"
## [1] 34
## [1] " foci 1 y mean is"
## [1] 33.07143
## [1] "mean y f1 is"
## [1] 71
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109
## [1] "we have a strand with two foci"
## [1] 91.5 41.5 96.5 43.0
## [1] "total distance is"
## [1] 18.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5
## [1] " foci 1 x mean is"
## [1] 91.5
## [1] "mean x f1 is"
## [1] 42
## [1] " foci 1 y mean is"
## [1] 41.5
## [1] "mean y f1 is"
## [1] 91
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980
## [1] "we have a strand with two foci"
## [1] 82.30769 58.53846 69.00000 60.00000
## [1] "total distance is"
## [1] 24.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.3076923
## [1] " foci 1 x mean is"
## [1] 82.30769
## [1] "mean x f1 is"
## [1] 59
## [1] " foci 1 y mean is"
## [1] 58.53846
## [1] "mean y f1 is"
## [1] 82
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698
## [1] "we have a strand with two foci"
## [1] 76.50000 86.00000 79.76923 92.38462
## [1] "total distance is"
## [1] 49.45584
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 76.5
## [1] "mean x f1 is"
## [1] 86
## [1] " foci 1 y mean is"
## [1] 86
## [1] "mean y f1 is"
## [1] 77
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698
## [1] "we have a strand with two foci"
## [1] 21.36364 91.09091 24.90909 104.36364
## [1] "total distance is"
## [1] 14.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.9586777
## [1] " foci 1 x mean is"
## [1] 21.36364
## [1] "mean x f1 is"
## [1] 92
## [1] " foci 1 y mean is"
## [1] 91.09091
## [1] "mean y f1 is"
## [1] 21
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698
## [1] "we have a strand with two foci"
## [1] 108.35294 93.94118 121.50000 97.50000
## [1] "total distance is"
## [1] 21.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.010381
## [1] " foci 1 x mean is"
## [1] 108.3529
## [1] "mean x f1 is"
## [1] 93
## [1] " foci 1 y mean is"
## [1] 93.94118
## [1] "mean y f1 is"
## [1] 108
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782
## [1] "we have a strand with two foci"
## [1] 39.22857 117.40000 42.00000 131.25000
## [1] "total distance is"
## [1] 22.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2122449
## [1] " foci 1 x mean is"
## [1] 39.22857
## [1] "mean x f1 is"
## [1] 117
## [1] " foci 1 y mean is"
## [1] 117.4
## [1] "mean y f1 is"
## [1] 39
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322
## [1] "we have a strand with two foci"
## [1] 51.0000 140.7143 67.0000 146.5000
## [1] "total distance is"
## [1] 21.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5102041
## [1] " foci 1 x mean is"
## [1] 51
## [1] "mean x f1 is"
## [1] 140
## [1] " foci 1 y mean is"
## [1] 140.7143
## [1] "mean y f1 is"
## [1] 51
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [1] 24
## [1] "we have a strand with two foci"
## [1] 116.27273 45.72727 122.00000 50.00000
## [1] "total distance is"
## [1] 3.828427
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1487603
## [1] " foci 1 x mean is"
## [1] 116.2727
## [1] "mean x f1 is"
## [1] 46
## [1] " foci 1 y mean is"
## [1] 45.72727
## [1] "mean y f1 is"
## [1] 116
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [1] "we have a strand with two foci"
## [1] 122.0 117.8 113.8 125.4
## [1] "total distance is"
## [1] 23.55635
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.04
## [1] " foci 1 x mean is"
## [1] 122
## [1] "mean x f1 is"
## [1] 118
## [1] " foci 1 y mean is"
## [1] 117.8
## [1] "mean y f1 is"
## [1] 122
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663
## [1] "we have a strand with two foci"
## [1] 55.36364 128.63636 56.00000 139.00000
## [1] "total distance is"
## [1] 14.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2644628
## [1] " foci 1 x mean is"
## [1] 55.36364
## [1] "mean x f1 is"
## [1] 129
## [1] " foci 1 y mean is"
## [1] 128.6364
## [1] "mean y f1 is"
## [1] 55
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663
## [1] 25
## [1] "we have a strand with two foci"
## [1] 56.33333 20.50000 61.00000 29.50000
## [1] "total distance is"
## [1] 20.97056
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.3611111
## [1] " foci 1 x mean is"
## [1] 56.33333
## [1] "mean x f1 is"
## [1] 20
## [1] " foci 1 y mean is"
## [1] 20.5
## [1] "mean y f1 is"
## [1] 56
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859
## [1] "we have a strand with two foci"
## [1] 73.8 34.3 72.0 37.0
## [1] "total distance is"
## [1] 26.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.13
## [1] " foci 1 x mean is"
## [1] 73.8
## [1] "mean x f1 is"
## [1] 34
## [1] " foci 1 y mean is"
## [1] 34.3
## [1] "mean y f1 is"
## [1] 74
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504
## [1] "we have a strand with two foci"
## [1] 24.00000 92.42857 27.50000 102.40000
## [1] "total distance is"
## [1] 35.62742
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.183673
## [1] " foci 1 x mean is"
## [1] 24
## [1] "mean x f1 is"
## [1] 92
## [1] " foci 1 y mean is"
## [1] 92.42857
## [1] "mean y f1 is"
## [1] 23
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877
## [1] "we have a strand with two foci"
## [1] 97.5 110.0 98.0 118.0
## [1] "total distance is"
## [1] 18.48528
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 97.5
## [1] "mean x f1 is"
## [1] 110
## [1] " foci 1 y mean is"
## [1] 110
## [1] "mean y f1 is"
## [1] 97
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768
## [1] "we have a strand with two foci"
## [1] 80.0 110.0 81.0 113.5
## [1] "total distance is"
## [1] 3.828427
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 41
## [1] " foci 1 x mean is"
## [1] 80
## [1] "mean x f1 is"
## [1] 106
## [1] " foci 1 y mean is"
## [1] 110
## [1] "mean y f1 is"
## [1] 75
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768
## [1] 26
## [1] "we have a strand with two foci"
## [1] 114.38462 45.38462 117.53846 55.15385
## [1] "total distance is"
## [1] 25.48528
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5266272
## [1] " foci 1 x mean is"
## [1] 114.3846
## [1] "mean x f1 is"
## [1] 45
## [1] " foci 1 y mean is"
## [1] 45.38462
## [1] "mean y f1 is"
## [1] 115
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894
## [1] "we have a strand with two foci"
## [1] 53.00000 47.00000 61.93333 55.93333
## [1] "total distance is"
## [1] 22.97056
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0
## [1] " foci 1 x mean is"
## [1] 53
## [1] "mean x f1 is"
## [1] 47
## [1] " foci 1 y mean is"
## [1] 47
## [1] "mean y f1 is"
## [1] 53
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [1] "we have a strand with two foci"
## [1] 45.66667 57.91667 44.80000 68.70000
## [1] "total distance is"
## [1] 23.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.4513889
## [1] " foci 1 x mean is"
## [1] 45.66667
## [1] "mean x f1 is"
## [1] 58
## [1] " foci 1 y mean is"
## [1] 57.91667
## [1] "mean y f1 is"
## [1] 45
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271
## [1] "we have a strand with two foci"
## [1] 141.5 73.0 128.0 91.5
## [1] "total distance is"
## [1] 17.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.25
## [1] " foci 1 x mean is"
## [1] 141.5
## [1] "mean x f1 is"
## [1] 74
## [1] " foci 1 y mean is"
## [1] 73
## [1] "mean y f1 is"
## [1] 141
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271
## [1] "we have a strand with two foci"
## [1] 100.4000 106.5333 107.1250 112.1250
## [1] "total distance is"
## [1] 20.55635
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.4444444
## [1] " foci 1 x mean is"
## [1] 100.4
## [1] "mean x f1 is"
## [1] 106
## [1] " foci 1 y mean is"
## [1] 106.5333
## [1] "mean y f1 is"
## [1] 100
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815
## [1] "we have a strand with two foci"
## [1] 28.00000 110.00000 35.33333 121.66667
## [1] "total distance is"
## [1] 12.24264
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0
## [1] " foci 1 x mean is"
## [1] 28
## [1] "mean x f1 is"
## [1] 110
## [1] " foci 1 y mean is"
## [1] 110
## [1] "mean y f1 is"
## [1] 28
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815
## [1] "we have a strand with two foci"
## [1] 51.91667 117.66667 62.00000 132.00000
## [1] "total distance is"
## [1] 9.071068
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1180556
## [1] " foci 1 x mean is"
## [1] 51.91667
## [1] "mean x f1 is"
## [1] 118
## [1] " foci 1 y mean is"
## [1] 117.6667
## [1] "mean y f1 is"
## [1] 52
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815
## [1] "we have a strand with two foci"
## [1] 87.33333 127.33333 84.61538 135.38462
## [1] "total distance is"
## [1] 10.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2222222
## [1] " foci 1 x mean is"
## [1] 87.33333
## [1] "mean x f1 is"
## [1] 127
## [1] " foci 1 y mean is"
## [1] 127.3333
## [1] "mean y f1 is"
## [1] 87
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128
## [1] 27
## [1] "we have a strand with two foci"
## [1] 110.5 43.4 113.8 52.9
## [1] "total distance is"
## [1] 26.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.41
## [1] " foci 1 x mean is"
## [1] 110.5
## [1] "mean x f1 is"
## [1] 43
## [1] " foci 1 y mean is"
## [1] 43.4
## [1] "mean y f1 is"
## [1] 110
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541
## [1] "we have a strand with two foci"
## [1] 49.36364 44.54545 58.07143 53.78571
## [1] "total distance is"
## [1] 29.2132
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.4297521
## [1] " foci 1 x mean is"
## [1] 49.36364
## [1] "mean x f1 is"
## [1] 44
## [1] " foci 1 y mean is"
## [1] 44.54545
## [1] "mean y f1 is"
## [1] 49
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261
## [1] "we have a strand with two foci"
## [1] 41.81818 55.45455 41.00000 66.33333
## [1] "total distance is"
## [1] 24.72792
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.3305785
## [1] " foci 1 x mean is"
## [1] 41.81818
## [1] "mean x f1 is"
## [1] 56
## [1] " foci 1 y mean is"
## [1] 55.45455
## [1] "mean y f1 is"
## [1] 42
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554
## [1] "we have a strand with two foci"
## [1] 137.50000 71.00000 123.90909 89.36364
## [1] "total distance is"
## [1] 17.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 137.5
## [1] "mean x f1 is"
## [1] 71
## [1] " foci 1 y mean is"
## [1] 71
## [1] "mean y f1 is"
## [1] 137
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554
## [1] "we have a strand with two foci"
## [1] 117.81818 98.45455 123.00000 101.50000
## [1] "total distance is"
## [1] 23.97056
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.3305785
## [1] " foci 1 x mean is"
## [1] 117.8182
## [1] "mean x f1 is"
## [1] 99
## [1] " foci 1 y mean is"
## [1] 98.45455
## [1] "mean y f1 is"
## [1] 118
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [1] "we have a strand with two foci"
## [1] 96.78571 104.21429 102.66667 109.50000
## [1] "total distance is"
## [1] 19.55635
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.6632653
## [1] " foci 1 x mean is"
## [1] 96.78571
## [1] "mean x f1 is"
## [1] 104
## [1] " foci 1 y mean is"
## [1] 104.2143
## [1] "mean y f1 is"
## [1] 96
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426
## [1] "we have a strand with two foci"
## [1] 24.14286 107.71429 31.50000 119.00000
## [1] "total distance is"
## [1] 11.24264
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5306122
## [1] " foci 1 x mean is"
## [1] 24.14286
## [1] "mean x f1 is"
## [1] 107
## [1] " foci 1 y mean is"
## [1] 107.7143
## [1] "mean y f1 is"
## [1] 24
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426
## [1] "we have a strand with two foci"
## [1] 83.11111 124.77778 80.63636 133.09091
## [1] "total distance is"
## [1] 7.656854
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.0617284
## [1] " foci 1 x mean is"
## [1] 83.11111
## [1] "mean x f1 is"
## [1] 125
## [1] " foci 1 y mean is"
## [1] 124.7778
## [1] "mean y f1 is"
## [1] 83
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426
## [1] 28
## [1] "we have a strand with two foci"
## [1] 45.2 79.4 50.0 83.5
## [1] "total distance is"
## [1] 3.828427
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2
## [1] " foci 1 x mean is"
## [1] 45.2
## [1] "mean x f1 is"
## [1] 79
## [1] " foci 1 y mean is"
## [1] 79.4
## [1] "mean y f1 is"
## [1] 45
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426
## [1] 29
## [1] "we have a strand with two foci"
## [1] 47.33333 36.11111 32.12500 52.12500
## [1] "total distance is"
## [1] 28.04163
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.4567901
## [1] " foci 1 x mean is"
## [1] 47.33333
## [1] "mean x f1 is"
## [1] 36
## [1] " foci 1 y mean is"
## [1] 36.11111
## [1] "mean y f1 is"
## [1] 48
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122
## [1] "we have a strand with two foci"
## [1] 102.45455 51.81818 105.00000 67.20000
## [1] "total distance is"
## [1] 20.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2396694
## [1] " foci 1 x mean is"
## [1] 102.4545
## [1] "mean x f1 is"
## [1] 52
## [1] " foci 1 y mean is"
## [1] 51.81818
## [1] "mean y f1 is"
## [1] 102
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311
## [1] "we have a strand with two foci"
## [1] 20.36364 71.90909 28.33333 85.66667
## [1] "total distance is"
## [1] 22.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1404959
## [1] " foci 1 x mean is"
## [1] 20.36364
## [1] "mean x f1 is"
## [1] 72
## [1] " foci 1 y mean is"
## [1] 71.90909
## [1] "mean y f1 is"
## [1] 20
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246
## [1] 30
## [1] "we have a strand with two foci"
## [1] 107.5 26.0 114.0 37.5
## [1] "total distance is"
## [1] 7.828427
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 30.25
## [1] " foci 1 x mean is"
## [1] 107.5
## [1] "mean x f1 is"
## [1] 26
## [1] " foci 1 y mean is"
## [1] 26
## [1] "mean y f1 is"
## [1] 102
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246
## [1] "we have a strand with two foci"
## [1] 45.92857 32.14286 28.00000 51.00000
## [1] "total distance is"
## [1] 16.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.0255102
## [1] " foci 1 x mean is"
## [1] 45.92857
## [1] "mean x f1 is"
## [1] 32
## [1] " foci 1 y mean is"
## [1] 32.14286
## [1] "mean y f1 is"
## [1] 46
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246
## [1] "we have a strand with two foci"
## [1] 118.09091 53.36364 117.40000 73.00000
## [1] "total distance is"
## [1] 25.48528
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.322314
## [1] " foci 1 x mean is"
## [1] 118.0909
## [1] "mean x f1 is"
## [1] 53
## [1] " foci 1 y mean is"
## [1] 53.36364
## [1] "mean y f1 is"
## [1] 117
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789
## [1] "we have a strand with two foci"
## [1] 129.66667 84.66667 122.46154 97.15385
## [1] "total distance is"
## [1] 31.55635
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2222222
## [1] " foci 1 x mean is"
## [1] 129.6667
## [1] "mean x f1 is"
## [1] 85
## [1] " foci 1 y mean is"
## [1] 84.66667
## [1] "mean y f1 is"
## [1] 130
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077
## [1] "we have a strand with two foci"
## [1] 68.0 96.5 83.9 111.1
## [1] "total distance is"
## [1] 16.72792
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 68
## [1] "mean x f1 is"
## [1] 97
## [1] " foci 1 y mean is"
## [1] 96.5
## [1] "mean y f1 is"
## [1] 68
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077
## [1] 31
## [1] "we have a strand with two foci"
## [1] 98.81250 33.68750 84.47619 38.09524
## [1] "total distance is"
## [1] 19.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1328125
## [1] " foci 1 x mean is"
## [1] 98.8125
## [1] "mean x f1 is"
## [1] 34
## [1] " foci 1 y mean is"
## [1] 33.6875
## [1] "mean y f1 is"
## [1] 99
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077
## [1] "we have a strand with two foci"
## [1] 120.8000 49.0000 128.7857 55.5000
## [1] "total distance is"
## [1] 7.242641
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.04
## [1] " foci 1 x mean is"
## [1] 120.8
## [1] "mean x f1 is"
## [1] 49
## [1] " foci 1 y mean is"
## [1] 49
## [1] "mean y f1 is"
## [1] 121
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077
## [1] "we have a strand with two foci"
## [1] 60.8750 75.9375 66.0000 94.5000
## [1] "total distance is"
## [1] 30.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.01953125
## [1] " foci 1 x mean is"
## [1] 60.875
## [1] "mean x f1 is"
## [1] 76
## [1] " foci 1 y mean is"
## [1] 75.9375
## [1] "mean y f1 is"
## [1] 61
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077 0.6621119
## [1] "we have a strand with two foci"
## [1] 141.00000 85.50000 139.61538 99.92308
## [1] "total distance is"
## [1] 22.82843
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 141
## [1] "mean x f1 is"
## [1] 85
## [1] " foci 1 y mean is"
## [1] 85.5
## [1] "mean y f1 is"
## [1] 141
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077 0.6621119
## [57] 0.6752201
## [1] "we have a strand with two foci"
## [1] 40.71429 109.14286 43.38462 128.38462
## [1] "total distance is"
## [1] 12.07107
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1020408
## [1] " foci 1 x mean is"
## [1] 40.71429
## [1] "mean x f1 is"
## [1] 109
## [1] " foci 1 y mean is"
## [1] 109.1429
## [1] "mean y f1 is"
## [1] 41
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077 0.6621119
## [57] 0.6752201
## [1] "we have a strand with two foci"
## [1] 94.81818 108.63636 95.76923 113.53846
## [1] "total distance is"
## [1] 43.04163
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.4380165
## [1] " foci 1 x mean is"
## [1] 94.81818
## [1] "mean x f1 is"
## [1] 108
## [1] " foci 1 y mean is"
## [1] 108.6364
## [1] "mean y f1 is"
## [1] 95
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077 0.6621119
## [57] 0.6752201
## [1] "we have a strand with two foci"
## [1] 114.3125 118.9375 101.5000 129.0000
## [1] "total distance is"
## [1] 16.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1015625
## [1] " foci 1 x mean is"
## [1] 114.3125
## [1] "mean x f1 is"
## [1] 119
## [1] " foci 1 y mean is"
## [1] 118.9375
## [1] "mean y f1 is"
## [1] 114
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077 0.6621119
## [57] 0.6752201
## [1] 32
## [1] "we have a strand with two foci"
## [1] 47.33333 27.33333 66.12500 28.12500
## [1] "total distance is"
## [1] 23.31371
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5555556
## [1] " foci 1 x mean is"
## [1] 47.33333
## [1] "mean x f1 is"
## [1] 27
## [1] " foci 1 y mean is"
## [1] 27.33333
## [1] "mean y f1 is"
## [1] 48
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077 0.6621119
## [57] 0.6752201
## [1] "we have a strand with two foci"
## [1] 50.9 51.0 40.4 56.8
## [1] "total distance is"
## [1] 11.41421
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.01
## [1] " foci 1 x mean is"
## [1] 50.9
## [1] "mean x f1 is"
## [1] 51
## [1] " foci 1 y mean is"
## [1] 51
## [1] "mean y f1 is"
## [1] 51
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077 0.6621119
## [57] 0.6752201
## [1] "we have a strand with two foci"
## [1] 87.0 47.5 102.2 50.0
## [1] "total distance is"
## [1] 25.79899
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.25
## [1] " foci 1 x mean is"
## [1] 87
## [1] "mean x f1 is"
## [1] 48
## [1] " foci 1 y mean is"
## [1] 47.5
## [1] "mean y f1 is"
## [1] 87
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077 0.6621119
## [57] 0.6752201 0.6777506
## [1] "we have a strand with two foci"
## [1] 99.16667 97.91667 104.11111 99.55556
## [1] "total distance is"
## [1] 19.48528
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.03472222
## [1] " foci 1 x mean is"
## [1] 99.16667
## [1] "mean x f1 is"
## [1] 98
## [1] " foci 1 y mean is"
## [1] 97.91667
## [1] "mean y f1 is"
## [1] 99
## [1] "probably an infinite loop"
## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077 0.6621119
## [57] 0.6752201 0.6777506
## [1] 33
## [1] "we have a strand with two foci"
## [1] 66.87500 16.62500 77.57895 22.84211
## [1] "total distance is"
## [1] 28.38478
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 2.65625
## [1] " foci 1 x mean is"
## [1] 66.875
## [1] "mean x f1 is"
## [1] 18
## [1] " foci 1 y mean is"
## [1] 16.625
## [1] "mean y f1 is"
## [1] 66
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.1633634 0.8988202 0.3297363 0.9356602 0.2407892 0.6754174 0.7734591
## [8] 0.3837879 0.7675238 0.4530818 0.2690565 0.5000000 0.6471041 0.2632279
## [15] 0.3308620 0.6926883 0.8300301 0.2296032 0.2910251 0.4467839 0.7318686
## [22] 0.8983689 0.5965775 0.5857864 0.7905083 0.3549438 0.7211211 0.9075347
## [29] 0.8116763 0.9374109 0.2679980 0.5553698 0.6692782 0.6656322 0.8672954
## [36] 0.4875663 0.5476859 0.1297504 0.3271877 0.4327768 0.4248894 0.6051003
## [43] 0.5784271 0.4127815 0.8766128 0.4272541 0.5100261 0.4881554 0.2604295
## [50] 0.4638426 0.8278122 0.8505311 0.9359246 0.8497789 0.5224077 0.6621119
## [57] 0.6752201 0.6777506 0.5455488
## [1] 34
## [1] "we have a strand with two foci"
## [1] 77 33 75 34
## [1] "total distance is"
## [1] 25.97056
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1
## [1] " foci 1 x mean is"
## [1] 77
## [1] "mean x f1 is"
## [1] 33
## [1] " foci 1 y mean is"
## [1] 33
## [1] "mean y f1 is"
## [1] 76
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.16336345 0.89882019 0.32973630 0.93566017 0.24078923 0.67541744
## [7] 0.77345908 0.38378792 0.76752378 0.45308184 0.26905645 0.50000000
## [13] 0.64710414 0.26322787 0.33086204 0.69268828 0.83003012 0.22960325
## [19] 0.29102506 0.44678389 0.73186859 0.89836889 0.59657753 0.58578644
## [25] 0.79050831 0.35494380 0.72112115 0.90753473 0.81167628 0.93741093
## [31] 0.26799802 0.55536978 0.66927819 0.66563218 0.86729540 0.48756627
## [37] 0.54768589 0.12975038 0.32718775 0.43277675 0.42488945 0.60510032
## [43] 0.57842712 0.41278154 0.87661282 0.42725413 0.51002606 0.48815536
## [49] 0.26042946 0.46384260 0.82781218 0.85053112 0.93592455 0.84977890
## [55] 0.52240775 0.66211192 0.67522013 0.67775062 0.54554883 0.05445448
## [1] "we have a strand with two foci"
## [1] 27.5 82.0 26.0 83.0
## [1] "total distance is"
## [1] 10.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.25
## [1] " foci 1 x mean is"
## [1] 27.5
## [1] "mean x f1 is"
## [1] 81
## [1] " foci 1 y mean is"
## [1] 82
## [1] "mean y f1 is"
## [1] 27
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.16336345 0.89882019 0.32973630 0.93566017 0.24078923 0.67541744
## [7] 0.77345908 0.38378792 0.76752378 0.45308184 0.26905645 0.50000000
## [13] 0.64710414 0.26322787 0.33086204 0.69268828 0.83003012 0.22960325
## [19] 0.29102506 0.44678389 0.73186859 0.89836889 0.59657753 0.58578644
## [25] 0.79050831 0.35494380 0.72112115 0.90753473 0.81167628 0.93741093
## [31] 0.26799802 0.55536978 0.66927819 0.66563218 0.86729540 0.48756627
## [37] 0.54768589 0.12975038 0.32718775 0.43277675 0.42488945 0.60510032
## [43] 0.57842712 0.41278154 0.87661282 0.42725413 0.51002606 0.48815536
## [49] 0.26042946 0.46384260 0.82781218 0.85053112 0.93592455 0.84977890
## [55] 0.52240775 0.66211192 0.67522013 0.67775062 0.54554883 0.05445448
## [61] 0.13270460
## [1] 35
## [1] "we have a strand with two foci"
## [1] 113.0 21.5 116.5 35.0
## [1] "total distance is"
## [1] 25.79899
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 1.25
## [1] " foci 1 x mean is"
## [1] 113
## [1] "mean x f1 is"
## [1] 21
## [1] " foci 1 y mean is"
## [1] 21.5
## [1] "mean y f1 is"
## [1] 112
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.16336345 0.89882019 0.32973630 0.93566017 0.24078923 0.67541744
## [7] 0.77345908 0.38378792 0.76752378 0.45308184 0.26905645 0.50000000
## [13] 0.64710414 0.26322787 0.33086204 0.69268828 0.83003012 0.22960325
## [19] 0.29102506 0.44678389 0.73186859 0.89836889 0.59657753 0.58578644
## [25] 0.79050831 0.35494380 0.72112115 0.90753473 0.81167628 0.93741093
## [31] 0.26799802 0.55536978 0.66927819 0.66563218 0.86729540 0.48756627
## [37] 0.54768589 0.12975038 0.32718775 0.43277675 0.42488945 0.60510032
## [43] 0.57842712 0.41278154 0.87661282 0.42725413 0.51002606 0.48815536
## [49] 0.26042946 0.46384260 0.82781218 0.85053112 0.93592455 0.84977890
## [55] 0.52240775 0.66211192 0.67522013 0.67775062 0.54554883 0.05445448
## [61] 0.13270460 0.79678892
## [1] "we have a strand with two foci"
## [1] 106.88889 40.55556 115.50000 59.00000
## [1] "total distance is"
## [1] 25.89949
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2098765
## [1] " foci 1 x mean is"
## [1] 106.8889
## [1] "mean x f1 is"
## [1] 41
## [1] " foci 1 y mean is"
## [1] 40.55556
## [1] "mean y f1 is"
## [1] 107
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.16336345 0.89882019 0.32973630 0.93566017 0.24078923 0.67541744
## [7] 0.77345908 0.38378792 0.76752378 0.45308184 0.26905645 0.50000000
## [13] 0.64710414 0.26322787 0.33086204 0.69268828 0.83003012 0.22960325
## [19] 0.29102506 0.44678389 0.73186859 0.89836889 0.59657753 0.58578644
## [25] 0.79050831 0.35494380 0.72112115 0.90753473 0.81167628 0.93741093
## [31] 0.26799802 0.55536978 0.66927819 0.66563218 0.86729540 0.48756627
## [37] 0.54768589 0.12975038 0.32718775 0.43277675 0.42488945 0.60510032
## [43] 0.57842712 0.41278154 0.87661282 0.42725413 0.51002606 0.48815536
## [49] 0.26042946 0.46384260 0.82781218 0.85053112 0.93592455 0.84977890
## [55] 0.52240775 0.66211192 0.67522013 0.67775062 0.54554883 0.05445448
## [61] 0.13270460 0.79678892 0.82293916
## [1] "we have a strand with two foci"
## [1] 122.8 52.6 124.4 71.2
## [1] "total distance is"
## [1] 25.72792
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.8
## [1] " foci 1 x mean is"
## [1] 122.8
## [1] "mean x f1 is"
## [1] 53
## [1] " foci 1 y mean is"
## [1] 52.6
## [1] "mean y f1 is"
## [1] 122
## [1] "on iteration"
## [1] 1
## [1] "kept this one"

## [1] "check that it walked successfully"

## [1] "dimensionless distance inside inner most function"
## [1] 0.16336345 0.89882019 0.32973630 0.93566017 0.24078923 0.67541744
## [7] 0.77345908 0.38378792 0.76752378 0.45308184 0.26905645 0.50000000
## [13] 0.64710414 0.26322787 0.33086204 0.69268828 0.83003012 0.22960325
## [19] 0.29102506 0.44678389 0.73186859 0.89836889 0.59657753 0.58578644
## [25] 0.79050831 0.35494380 0.72112115 0.90753473 0.81167628 0.93741093
## [31] 0.26799802 0.55536978 0.66927819 0.66563218 0.86729540 0.48756627
## [37] 0.54768589 0.12975038 0.32718775 0.43277675 0.42488945 0.60510032
## [43] 0.57842712 0.41278154 0.87661282 0.42725413 0.51002606 0.48815536
## [49] 0.26042946 0.46384260 0.82781218 0.85053112 0.93592455 0.84977890
## [55] 0.52240775 0.66211192 0.67522013 0.67775062 0.54554883 0.05445448
## [61] 0.13270460 0.79678892 0.82293916 0.79622759
## [1] "we have a strand with two foci"
## [1] 38.33333 67.66667 27.50000 88.50000
## [1] "total distance is"
## [1] 18.65685
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.5555556
## [1] " foci 1 x mean is"
## [1] 38.33333
## [1] "mean x f1 is"
## [1] 68
## [1] " foci 1 y mean is"
## [1] 67.66667
## [1] "mean y f1 is"
## [1] 39
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.16336345 0.89882019 0.32973630 0.93566017 0.24078923 0.67541744
## [7] 0.77345908 0.38378792 0.76752378 0.45308184 0.26905645 0.50000000
## [13] 0.64710414 0.26322787 0.33086204 0.69268828 0.83003012 0.22960325
## [19] 0.29102506 0.44678389 0.73186859 0.89836889 0.59657753 0.58578644
## [25] 0.79050831 0.35494380 0.72112115 0.90753473 0.81167628 0.93741093
## [31] 0.26799802 0.55536978 0.66927819 0.66563218 0.86729540 0.48756627
## [37] 0.54768589 0.12975038 0.32718775 0.43277675 0.42488945 0.60510032
## [43] 0.57842712 0.41278154 0.87661282 0.42725413 0.51002606 0.48815536
## [49] 0.26042946 0.46384260 0.82781218 0.85053112 0.93592455 0.84977890
## [55] 0.52240775 0.66211192 0.67522013 0.67775062 0.54554883 0.05445448
## [61] 0.13270460 0.79678892 0.82293916 0.79622759
## [1] 36
## [1] "we have a strand with two foci"
## [1] 108.76923 61.46154 95.16667 70.16667
## [1] "total distance is"
## [1] 17.55635
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.2662722
## [1] " foci 1 x mean is"
## [1] 108.7692
## [1] "mean x f1 is"
## [1] 61
## [1] " foci 1 y mean is"
## [1] 61.46154
## [1] "mean y f1 is"
## [1] 109
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.16336345 0.89882019 0.32973630 0.93566017 0.24078923 0.67541744
## [7] 0.77345908 0.38378792 0.76752378 0.45308184 0.26905645 0.50000000
## [13] 0.64710414 0.26322787 0.33086204 0.69268828 0.83003012 0.22960325
## [19] 0.29102506 0.44678389 0.73186859 0.89836889 0.59657753 0.58578644
## [25] 0.79050831 0.35494380 0.72112115 0.90753473 0.81167628 0.93741093
## [31] 0.26799802 0.55536978 0.66927819 0.66563218 0.86729540 0.48756627
## [37] 0.54768589 0.12975038 0.32718775 0.43277675 0.42488945 0.60510032
## [43] 0.57842712 0.41278154 0.87661282 0.42725413 0.51002606 0.48815536
## [49] 0.26042946 0.46384260 0.82781218 0.85053112 0.93592455 0.84977890
## [55] 0.52240775 0.66211192 0.67522013 0.67775062 0.54554883 0.05445448
## [61] 0.13270460 0.79678892 0.82293916 0.79622759
## [1] "we have a strand with two foci"
## [1] 101.06250 81.37500 105.63636 80.36364
## [1] "total distance is"
## [1] 27.14214
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 0.1445312
## [1] " foci 1 x mean is"
## [1] 101.0625
## [1] "mean x f1 is"
## [1] 81
## [1] " foci 1 y mean is"
## [1] 81.375
## [1] "mean y f1 is"
## [1] 101
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.16336345 0.89882019 0.32973630 0.93566017 0.24078923 0.67541744
## [7] 0.77345908 0.38378792 0.76752378 0.45308184 0.26905645 0.50000000
## [13] 0.64710414 0.26322787 0.33086204 0.69268828 0.83003012 0.22960325
## [19] 0.29102506 0.44678389 0.73186859 0.89836889 0.59657753 0.58578644
## [25] 0.79050831 0.35494380 0.72112115 0.90753473 0.81167628 0.93741093
## [31] 0.26799802 0.55536978 0.66927819 0.66563218 0.86729540 0.48756627
## [37] 0.54768589 0.12975038 0.32718775 0.43277675 0.42488945 0.60510032
## [43] 0.57842712 0.41278154 0.87661282 0.42725413 0.51002606 0.48815536
## [49] 0.26042946 0.46384260 0.82781218 0.85053112 0.93592455 0.84977890
## [55] 0.52240775 0.66211192 0.67522013 0.67775062 0.54554883 0.05445448
## [61] 0.13270460 0.79678892 0.82293916 0.79622759
## [1] "we have a strand with two foci"
## [1] 76.33333 99.33333 82.00000 103.36364
## [1] "total distance is"
## [1] 3.828427
## function (description = "", open = "", blocking = TRUE, encoding = getOption("encoding"),
## raw = FALSE, method = getOption("url.method", "default"))
## {
## .Internal(file(description, open, blocking, encoding, method,
## raw))
## }
## <bytecode: 0x7fb0873a3f58>
## <environment: namespace:base>
## [1] "distance for f1 is"
## [1] 16.55556
## [1] " foci 1 x mean is"
## [1] 76.33333
## [1] "mean x f1 is"
## [1] 96
## [1] " foci 1 y mean is"
## [1] 99.33333
## [1] "mean y f1 is"
## [1] 74
## [1] "on iteration"
## [1] 1
## [1] "dimensionless distance inside inner most function"
## [1] 0.16336345 0.89882019 0.32973630 0.93566017 0.24078923 0.67541744
## [7] 0.77345908 0.38378792 0.76752378 0.45308184 0.26905645 0.50000000
## [13] 0.64710414 0.26322787 0.33086204 0.69268828 0.83003012 0.22960325
## [19] 0.29102506 0.44678389 0.73186859 0.89836889 0.59657753 0.58578644
## [25] 0.79050831 0.35494380 0.72112115 0.90753473 0.81167628 0.93741093
## [31] 0.26799802 0.55536978 0.66927819 0.66563218 0.86729540 0.48756627
## [37] 0.54768589 0.12975038 0.32718775 0.43277675 0.42488945 0.60510032
## [43] 0.57842712 0.41278154 0.87661282 0.42725413 0.51002606 0.48815536
## [49] 0.26042946 0.46384260 0.82781218 0.85053112 0.93592455 0.84977890
## [55] 0.52240775 0.66211192 0.67522013 0.67775062 0.54554883 0.05445448
## [61] 0.13270460 0.79678892 0.82293916 0.79622759
## [1] "showing histograms etc"


## [1] 0.57197
## [1] 0.5821068
## [1] 0.2386714
## [1] 0.16336345 0.89882019 0.32973630 0.93566017 0.24078923 0.67541744
## [7] 0.77345908 0.38378792 0.76752378 0.45308184 0.26905645 0.50000000
## [13] 0.64710414 0.26322787 0.33086204 0.69268828 0.83003012 0.22960325
## [19] 0.29102506 0.44678389 0.73186859 0.89836889 0.59657753 0.58578644
## [25] 0.79050831 0.35494380 0.72112115 0.90753473 0.81167628 0.93741093
## [31] 0.26799802 0.55536978 0.66927819 0.66563218 0.86729540 0.48756627
## [37] 0.54768589 0.12975038 0.32718775 0.43277675 0.42488945 0.60510032
## [43] 0.57842712 0.41278154 0.87661282 0.42725413 0.51002606 0.48815536
## [49] 0.26042946 0.46384260 0.82781218 0.85053112 0.93592455 0.84977890
## [55] 0.52240775 0.66211192 0.67522013 0.67775062 0.54554883 0.05445448
## [61] 0.13270460 0.79678892 0.82293916 0.79622759